home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Sample Code / Newton Sample Code 1.1 / Miscellaneous / Extra Change-2 / ExtraChange.text < prev    next >
Encoding:
Text File  |  1994-02-28  |  1.0 KB  |  44 lines  |  [TEXT/MPS ]
  1. /*
  2.   ExtraChange Project Data
  3.   Copyright: © Apple Computer, Inc. 1993-1994. All Rights Reserved.
  4.  */ 
  5.  
  6. constant kAppSymbol := '|XChange:PIEDTS|;
  7. constant kPackageName := "XChange:PIEDTS";
  8.  
  9. "magic llama";
  10.  
  11. // ---- End Project Data ----
  12.  
  13.  
  14. // ---- File ExtraChange.t ----
  15. _view000 :=
  16.    {viewFlags: 5,
  17.     viewFormat: nil,
  18.     viewBounds: {left: 0, top: 0, right: 0, bottom: 0},
  19.     viewSetupDoneScript:
  20.       func()
  21.       begin
  22.       
  23.         //change our extras info to the other state
  24.         :SetExtrasInfo(kAppSymbol, if stateOne then {icon: two, text: "Two"} else {icon: one, text: "Hup"});
  25.         stateOne := NOT stateOne;
  26.       
  27.         //this sample has no UI apart from the icon in the extras drawer, so quit
  28.         AddDeferredAction(func() GetRoot().(kAppSymbol):Close(),[]);
  29.       
  30.       end,
  31.     SetExtrasInfo: kSetExtrasInfoFunc,
  32.     stateOne: true,
  33.     one: GetPictAsBits("one", 1),
  34.     two: GetPictAsBits("two", 1),
  35.     viewclass: 74
  36.    };
  37.  
  38.  
  39.  
  40.  
  41.  
  42. // ---- Beginning of section for non used Layout files ----
  43.  
  44. // End of output